home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Perusromppu 2
/
Perusromppu 2 - 40 suomenkielistä opetusohjelmaa.iso
/
perusr2
/
mmlab
/
page_1.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-08-03
|
80KB
|
2,225 lines
{ --------------------------------------------------- }
{ }
{ Original page name :"TANGENTBORD" }
{ }
{ --------------------------------------------------- }
UNIT PAGE_1;
INTERFACE
USES MMLPages;
FUNCTION CreatePage : PagePtr_;
IMPLEMENTATION
USES WinTypes,
WinProcs,
MMLRun,
MMLDefs,
MMLCache,
MMLButtons,
MMLMCI,
MMLDlgs,
MMLOLE,
Texts;
CONST name_Sequence_1 = 'autohΣndelse';
name_Sequence_2 = 'hΣndelse_1';
name_Sequence_3 = 'hΣndelse_2';
name_Sequence_4 = 'hΣndelse_3';
name_Sequence_5 = 'hΣndelse_4';
name_Sequence_6 = 'hΣndelse_5';
name_Sequence_7 = 'hΣndelse_6';
name_Sequence_8 = 'hΣndelse_7';
name_Sequence_9 = 'hΣndelse_8';
name_Sequence_10 = 'hΣndelse_9';
name_Sequence_11 = 'hΣndelse_10';
name_Sequence_12 = 'hΣndelse_11';
name_Sequence_13 = 'hΣndelse_12';
name_Sequence_14 = 'hΣndelse_13';
name_Sequence_15 = 'hΣndelse_14';
name_Sequence_16 = 'hΣndelse_15';
name_Sequence_17 = 'hΣndelse_16';
name_Sequence_18 = 'hΣndelse_17';
name_Sequence_19 = 'hΣndelse_18';
name_Sequence_20 = 'hΣndelse_19';
name_Sequence_21 = 'hΣndelse_21';
name_Sequence_22 = 'hΣndelse_22';
name_Sequence_23 = 'hΣndelse_23';
name_Sequence_24 = 'hΣndelse_24';
name_Sequence_25 = 'hΣndelse_25';
CONST Link_Button_1 = name_Sequence_2;
Link_Button_2 = name_Sequence_3;
Link_Button_3 = name_Sequence_4;
Link_Button_4 = name_Sequence_5;
Link_Button_5 = name_Sequence_6;
Link_Button_6 = name_Sequence_7;
Link_Button_7 = name_Sequence_8;
Link_Button_8 = name_Sequence_9;
Link_Button_9 = name_Sequence_10;
Link_Button_10 = name_Sequence_11;
Link_Button_11 = name_Sequence_12;
Link_Button_12 = name_Sequence_13;
Link_Button_13 = name_Sequence_14;
Link_Button_14 = name_Sequence_15;
Link_Button_15 = name_Sequence_16;
Link_Button_16 = name_Sequence_17;
Link_Button_17 = name_Sequence_18;
Link_Button_18 = name_Sequence_18;
Link_Button_19 = name_Sequence_19;
Link_Button_20 = name_Sequence_19;
Link_Button_21 = name_Sequence_20;
Link_Button_22 = name_Sequence_21;
Link_Button_23 = name_Sequence_22;
Link_Button_24 = name_Sequence_23;
Link_Button_25 = name_Sequence_24;
Link_Button_26 = name_Sequence_25;
{ ------------------------------------------------ }
{ Background drawing }
{ -------------------------------------------------}
TYPE Bk_Page_1Ptr_ = ^Bk_Page_1_;
Bk_Page_1_ = OBJECT(DrawList_)
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE CollectButtons(Buttons : ButtonsPtr_); VIRTUAL;
PROCEDURE Draw(DC : HDC;
UpdateR : PRect;
Fast : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
DESTRUCTOR Bk_Page_1_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Bk_Page_1_.CollectButtons(Buttons : ButtonsPtr_);
BEGIN
Buttons^.AddButton(143,383,171,31,Link_Button_1,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(66,281,30,39,Link_Button_2,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(130,279,276,41,Link_Button_3,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(407,279,23,40,Link_Button_4,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(428,279,24,41,Link_Button_5,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(454,281,22,38,Link_Button_6,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(412,373,76,43,Link_Button_7,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(488,321,98,91,Link_Button_8,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(408,318,23,23,Link_Button_9,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(434,320,22,20,Link_Button_10,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(458,319,26,22,Link_Button_11,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(410,340,24,32,Link_Button_12,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(435,340,22,33,Link_Button_13,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(457,341,25,33,Link_Button_14,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(360,320,41,19,Link_Button_15,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(372,342,34,29,Link_Button_16,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(346,371,61,12,Link_Button_17,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(53,370,50,14,Link_Button_18,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(372,385,40,26,Link_Button_19,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(50,384,40,26,Link_Button_20,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(98,339,250,44,Link_Button_21,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(59,356,34,17,Link_Button_22,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(60,338,31,19,Link_Button_23,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(107,383,41,30,Link_Button_24,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(315,384,32,27,Link_Button_25,EnterResponse_(2),SelectResponse_(0));
Buttons^.AddButton(89,321,269,17,Link_Button_26,EnterResponse_(2),SelectResponse_(0));
END;
PROCEDURE Bk_Page_1_.Draw(DC : HDC;
UpdateR : PRect;
Fast : Boolean);
BEGIN
DrawWMF(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
CGetMF(file_1_0_1),
159,5,322,286,
False,
False);
DrawWMF(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
CGetMF(file_1_0_2),
6,262,627,196,
False,
False);
DrawButton(DC,
143,383,171,31,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_1);
DrawButton(DC,
66,281,30,39,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_2);
DrawButton(DC,
130,279,276,41,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_3);
DrawButton(DC,
407,279,23,40,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_4);
DrawButton(DC,
428,279,24,41,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_5);
DrawButton(DC,
454,281,22,38,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_6);
DrawButton(DC,
412,373,76,43,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_7);
DrawButton(DC,
488,321,98,91,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_8);
DrawButton(DC,
408,318,23,23,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_9);
DrawButton(DC,
434,320,22,20,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
colour_White,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_10);
DrawButton(DC,
458,319,26,22,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
colour_White,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_11);
DrawButton(DC,
410,340,24,32,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
colour_White,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_12);
DrawButton(DC,
435,340,22,33,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
colour_White,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_13);
DrawButton(DC,
457,341,25,33,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-11,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New'),
colour_White,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_14);
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
220,90,199,62,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-24,0,0,0,700,0,0,0,0,3,2,1,49,'Courier New')^,
colour_Black,
True,
colour_LightGrey,
1,
1),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_0_15,
2,
colour_LightGrey,
False);
DrawButton(DC,
360,320,41,19,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_16);
DrawButton(DC,
372,342,34,29,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_17);
DrawButton(DC,
346,371,61,12,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_18);
DrawButton(DC,
53,370,50,14,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_19);
DrawButton(DC,
372,385,40,26,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_20);
DrawButton(DC,
50,384,40,26,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_21);
DrawButton(DC,
98,339,250,44,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_22);
DrawButton(DC,
59,356,34,17,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_23);
DrawButton(DC,
60,338,31,19,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_24);
DrawButton(DC,
107,383,41,30,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_25);
DrawButton(DC,
315,384,32,27,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_26);
DrawButton(DC,
89,321,269,17,
TButtonStyle(0),
MkLogFount(GlobalLogFount,-16,0,0,0,400,0,0,0,0,3,2,0,2,'Times New Roman'),
colour_Blue,
colour_LightGrey,
colour_White,
colour_DarkGrey,
3,
txt_1_0_27);
END;
PROCEDURE Bk_Page_1_.AllocMemory;
BEGIN
CGetBMP(file_1_0_1);
CGetBMP(file_1_0_2);
END;
{ ------------------------------------------------------------------------ }
{ ------------------------------------------------------------------------ }
TYPE Sequence_1Ptr_ = ^Sequence_1_;
Sequence_1_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_2Ptr_ = ^Sequence_2_;
Sequence_2_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_3Ptr_ = ^Sequence_3_;
Sequence_3_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_4Ptr_ = ^Sequence_4_;
Sequence_4_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_5Ptr_ = ^Sequence_5_;
Sequence_5_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_6Ptr_ = ^Sequence_6_;
Sequence_6_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_7Ptr_ = ^Sequence_7_;
Sequence_7_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_8Ptr_ = ^Sequence_8_;
Sequence_8_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_9Ptr_ = ^Sequence_9_;
Sequence_9_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_10Ptr_ = ^Sequence_10_;
Sequence_10_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_11Ptr_ = ^Sequence_11_;
Sequence_11_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_12Ptr_ = ^Sequence_12_;
Sequence_12_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_13Ptr_ = ^Sequence_13_;
Sequence_13_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_14Ptr_ = ^Sequence_14_;
Sequence_14_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_15Ptr_ = ^Sequence_15_;
Sequence_15_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_16Ptr_ = ^Sequence_16_;
Sequence_16_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_17Ptr_ = ^Sequence_17_;
Sequence_17_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_18Ptr_ = ^Sequence_18_;
Sequence_18_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_19Ptr_ = ^Sequence_19_;
Sequence_19_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_20Ptr_ = ^Sequence_20_;
Sequence_20_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_21Ptr_ = ^Sequence_21_;
Sequence_21_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_22Ptr_ = ^Sequence_22_;
Sequence_22_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_23Ptr_ = ^Sequence_23_;
Sequence_23_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_24Ptr_ = ^Sequence_24_;
Sequence_24_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
TYPE Sequence_25Ptr_ = ^Sequence_25_;
Sequence_25_ = OBJECT(Sequence_)
CONSTRUCTOR Init;
DESTRUCTOR Kill; VIRTUAL;
PROCEDURE Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean); VIRTUAL;
PROCEDURE AllocMemory; VIRTUAL;
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_1_.Init;
BEGIN
INHERITED Init(name_Sequence_1);
END;
DESTRUCTOR Sequence_1_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_1_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_1_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_2_.Init;
BEGIN
INHERITED Init(name_Sequence_2);
END;
DESTRUCTOR Sequence_2_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_2_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
262,104,115,28,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_2_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,262,104,377,132);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_2_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_3_.Init;
BEGIN
INHERITED Init(name_Sequence_3);
END;
DESTRUCTOR Sequence_3_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_3_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
279,88,81,59,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_3_1,
2,
colour_LightGrey,
False);
SetRect(Data.RedrawR,279,88,360,147);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_3_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_4_.Init;
BEGIN
INHERITED Init(name_Sequence_4);
END;
DESTRUCTOR Sequence_4_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_4_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
214,88,214,78,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_4_1,
2,
colour_LightGrey,
False);
SetRect(Data.RedrawR,214,88,428,166);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_4_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_5_.Init;
BEGIN
INHERITED Init(name_Sequence_5);
END;
DESTRUCTOR Sequence_5_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_5_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
259,104,125,28,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_5_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,259,104,384,132);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_5_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_6_.Init;
BEGIN
INHERITED Init(name_Sequence_6);
END;
DESTRUCTOR Sequence_6_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_6_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
259,107,122,28,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_6_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,259,107,381,135);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_6_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_7_.Init;
BEGIN
INHERITED Init(name_Sequence_7);
END;
DESTRUCTOR Sequence_7_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_7_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
297,109,58,28,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_7_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,297,109,355,137);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_7_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_8_.Init;
BEGIN
INHERITED Init(name_Sequence_8);
END;
DESTRUCTOR Sequence_8_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_8_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
263,108,117,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_8_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,263,108,380,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_8_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_9_.Init;
BEGIN
INHERITED Init(name_Sequence_9);
END;
DESTRUCTOR Sequence_9_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_9_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
237,90,166,54,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_9_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,237,90,403,144);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_9_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_10_.Init;
BEGIN
INHERITED Init(name_Sequence_10);
END;
DESTRUCTOR Sequence_10_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_10_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
287,108,65,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_10_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,287,108,352,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_10_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_11_.Init;
BEGIN
INHERITED Init(name_Sequence_11);
END;
DESTRUCTOR Sequence_11_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_11_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
287,108,65,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_11_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,287,108,352,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_11_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_12_.Init;
BEGIN
INHERITED Init(name_Sequence_12);
END;
DESTRUCTOR Sequence_12_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_12_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
287,108,65,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_12_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,287,108,352,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_12_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_13_.Init;
BEGIN
INHERITED Init(name_Sequence_13);
END;
DESTRUCTOR Sequence_13_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_13_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
286,108,67,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_13_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,286,108,353,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_13_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_14_.Init;
BEGIN
INHERITED Init(name_Sequence_14);
END;
DESTRUCTOR Sequence_14_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_14_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
296,108,47,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_14_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,296,108,343,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_14_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_15_.Init;
BEGIN
INHERITED Init(name_Sequence_15);
END;
DESTRUCTOR Sequence_15_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_15_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
262,108,115,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_15_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,262,108,377,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_15_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_16_.Init;
BEGIN
INHERITED Init(name_Sequence_16);
END;
DESTRUCTOR Sequence_16_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_16_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
261,108,118,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_16_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,261,108,379,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_16_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_17_.Init;
BEGIN
INHERITED Init(name_Sequence_17);
END;
DESTRUCTOR Sequence_17_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_17_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
288,108,63,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_17_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,288,108,351,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_17_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_18_.Init;
BEGIN
INHERITED Init(name_Sequence_18);
END;
DESTRUCTOR Sequence_18_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_18_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
294,108,52,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_18_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,294,108,346,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_18_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_19_.Init;
BEGIN
INHERITED Init(name_Sequence_19);
END;
DESTRUCTOR Sequence_19_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_19_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
290,108,59,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_19_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,290,108,349,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_19_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_20_.Init;
BEGIN
INHERITED Init(name_Sequence_20);
END;
DESTRUCTOR Sequence_20_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_20_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
264,102,111,31,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_20_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,264,102,375,133);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_20_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_21_.Init;
BEGIN
INHERITED Init(name_Sequence_21);
END;
DESTRUCTOR Sequence_21_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_21_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
265,108,109,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_21_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,265,108,374,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_21_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_22_.Init;
BEGIN
INHERITED Init(name_Sequence_22);
END;
DESTRUCTOR Sequence_22_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_22_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
290,108,59,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_22_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,290,108,349,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_22_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_23_.Init;
BEGIN
INHERITED Init(name_Sequence_23);
END;
DESTRUCTOR Sequence_23_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_23_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
302,108,35,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_23_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,302,108,337,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_23_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_24_.Init;
BEGIN
INHERITED Init(name_Sequence_24);
END;
DESTRUCTOR Sequence_24_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_24_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
286,108,67,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_24_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,286,108,353,138);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_24_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
CONSTRUCTOR Sequence_25_.Init;
BEGIN
INHERITED Init(name_Sequence_25);
END;
DESTRUCTOR Sequence_25_.Kill;
BEGIN
INHERITED Kill;
END;
PROCEDURE Sequence_25_.Execute(Window : HWnd;
DC : HDC;
Fast : Boolean;
UpdateR : PRect;
VAR Data : RunData_;
VAR AddToBk : Boolean);
BEGIN
CASE Data.IP OF
1: BEGIN
DrawTextStrs(DC,
MkDrawModeEx(GlobalDrawMode,TDrawModeFx(0),200,TDrawSpeed(0),Fast),
285,107,70,30,
MkFount(GlobalFount,
MkLogFount(GlobalLogFount,-21,0,0,0,700,0,0,0,0,3,2,1,34,'Arial')^,
colour_Yellow,
True,
32896,
3,
3),
MkBorder(GlobalBorder,TBorderStyle(0),colour_Black,colour_White,15),
txt_1_25_1,
1,
colour_LightGrey,
False);
SetRect(Data.RedrawR,285,107,355,137);
END;
2: BEGIN
IF (NOT Fast) THEN BEGIN
SetDelay(1,True,Data);
END;
END;
3: SetScreenUpdate(Data);
ELSE
Data.Status:=_Lastfunc;
END;
END;
PROCEDURE Sequence_25_.AllocMemory;
BEGIN
END;
{ ------------------------------------------------------------------------ }
{ ------------------------------------------------------------------------ }
{ ------------------------------------------------------------------------ }
FUNCTION CreatePage : PagePtr_;
VAR Page : PagePtr_;
BEGIN
New(Page,Init(name_Page_1,New(Bk_Page_1Ptr_,Init)));
Page^.AddSeq(New(Sequence_1Ptr_,Init));
Page^.AddSeq(New(Sequence_2Ptr_,Init));
Page^.AddSeq(New(Sequence_3Ptr_,Init));
Page^.AddSeq(New(Sequence_4Ptr_,Init));
Page^.AddSeq(New(Sequence_5Ptr_,Init));
Page^.AddSeq(New(Sequence_6Ptr_,Init));
Page^.AddSeq(New(Sequence_7Ptr_,Init));
Page^.AddSeq(New(Sequence_8Ptr_,Init));
Page^.AddSeq(New(Sequence_9Ptr_,Init));
Page^.AddSeq(New(Sequence_10Ptr_,Init));
Page^.AddSeq(New(Sequence_11Ptr_,Init));
Page^.AddSeq(New(Sequence_12Ptr_,Init));
Page^.AddSeq(New(Sequence_13Ptr_,Init));
Page^.AddSeq(New(Sequence_14Ptr_,Init));
Page^.AddSeq(New(Sequence_15Ptr_,Init));
Page^.AddSeq(New(Sequence_16Ptr_,Init));
Page^.AddSeq(New(Sequence_17Ptr_,Init));
Page^.AddSeq(New(Sequence_18Ptr_,Init));
Page^.AddSeq(New(Sequence_19Ptr_,Init));
Page^.AddSeq(New(Sequence_20Ptr_,Init));
Page^.AddSeq(New(Sequence_21Ptr_,Init));
Page^.AddSeq(New(Sequence_22Ptr_,Init));
Page^.AddSeq(New(Sequence_23Ptr_,Init));
Page^.AddSeq(New(Sequence_24Ptr_,Init));
Page^.AddSeq(New(Sequence_25Ptr_,Init));
CreatePage:=Page;
END;
END.